<!-- #include file="../DAL/BD.asp" -->
<!-- #include file="../BLL/DV.asp" -->

<%

    'tomo los valores enviados por post
    id_Categoria=Request.Form("Categoria")
    Titulo=Request.Form("Titulo")
    Descripcion=Request.Form("Descripcion")
    Foto=Request.Form("Foto")				
    Precio=Request.Form("Precio")
    Estado=Request.Form("Estado")
    id = Request.Form("id_Producto")
    Session.Contents.Remove("Error")

    'checkeo el estado
    if Estado = 1 then
    Estado=1
    else
    Estado=0
    end if

	'Calculo el digito verificador Horizontal
	DVH=calcularDVH(id & id_Categoria & Titulo & Descripcion & Foto & Precio & Estado)

	'conecto a la bdd
	set conexion=Conectar()
	
	'ejecuto el insert
	EjecutarConsulta "UPDATE PRODUCTOS set id_Categoria ='" & id_Categoria & "',Titulo='" & Titulo & "',Descripcion='" & Descripcion & "',Foto='" & Foto & "',Precio='" & Precio & "',Habilitado='" & Estado & "',DVH= " & DVH & " where id_Producto='" & id & "' ", conexion
		
		
	'Calculo y guardo el DVV
	calcularDVV("PRODUCTOS")

	'Registro el movimiento en la bitacora
	id_bit=obtener_ultimo_id("BITACORA","id_Bitacora") + 1
	dvh=calcularDVH(id_bit & "Modificacion de Producto: " & Titulo & "1" & formatdatetime(now(),vbgeneraldate) & session("id_Usuario"))					
	AgregarMovimiento "Modificacion de Producto: " & Titulo, "1", session("id_Usuario"),dvh
	calcularDVV("BITACORA")		

	'desconectar a la bdd
	Desconectar(conexion)

	response.Redirect("productos_detalle.asp?id_Producto=" & id)
%>